#lang planet neil/sicp
(set-car! (list 1 2 3) 4)
